home *** CD-ROM | disk | FTP | other *** search
/ Aminet 50 / Aminet 50 (2002)(GTI - Schatztruhe)[!][Aug 2002].iso / Aminet / comm / misc / tv-prog.lha / TVprogram / Install_TV < prev    next >
Text File  |  2002-05-03  |  17KB  |  826 lines
  1. ; Skrypt instalacyjny dla programu TV (2000-2002)
  2. ;
  3. ;    $VER: Install_TV v1.2 by ZATOR (26.01.2002)
  4. ;
  5. ; 
  6.  
  7. (if (>= @installer-version 2883594)
  8. (
  9. (effect "lower_right" "radial" $FFEE00 $EE00)
  10. ))
  11.  
  12. (set #ver_comm (/ (getversion "libs:commodities.library") 65536))
  13. (set #ver_icon (getversion "icon.library" (resident)))
  14. (set #ver_icon (/ #ver_icon 65536))
  15. (set #ver_work (getversion "workbench.library" (resident)))
  16. (set #ver_work (/ #ver_work 65536))
  17. (set #ver_dops (/ (getversion "libs:muimaster.library") 65536))
  18.  
  19. (message "\n\nBeta Version\n\n!!!\n\n2000 - 2002\nAmiga Version")
  20.  
  21. (set wybr
  22.     (askchoice
  23.         (prompt "Jëzyk/Jazyk/Sprache/Language")
  24.         (help @askchoice-help)
  25.         (choices "POLSKI" "ÇEÎTINA") ;# "DEUTSCH")
  26.         (default 0)
  27.     )
  28. )
  29. (if (= wybr 0)
  30. (
  31. (set #witam "Witam w programie instalacyjnym programu\nTV\nDziëki temu skryptowi zainstalujesz oraz skonfigurujesz program")
  32. (set #info ("\nWersje (zainstalowanych u ciebie) wymaganych bibliotek:\n\nmuimaster.library - %ld [19^]\ncommodities.library - %ld\n icon.library - %ld\n\n" #ver_dops #ver_comm #ver_icon))
  33. (set #gdzie "Gdzie zainstalowaê program? \n\ (katalog zostanie stworzony)")
  34. (set #help_gdzie "Wybierasz miejsce, gdzie ma zostaê zainstalowany program TV\n\nProgram potrzebuje 1MB dla swoich danych oraz ok 1MB dla ôciâganych danych z Internetu.\nPrzy dzisiejszych dyskach program ma bardzo skromne wymagania:)")
  35. (set #kopiuj_wb "Gdzie skopiowaê program TV?")
  36. (set #help_wb "Wybierasz miejsce, gdzie ma zostaê skopiowany program")
  37. (set #kopiuj_wb1 "Gdzie skopiowaê dokumentacje?")
  38. (set #help_wb1 "Wybierasz miejsce, gdzie ma zostaê skopiowana dokumentacja")
  39. (set #kopiuj_wb2 "Gdzie skopiowaê skrypty arexxa?")
  40. (set #help_wb2 "Wybierasz miejsce, gdzie majâ zostaê skopiowane skrypty aRexx'a")
  41. (set #kopiuj_wb31 "Gdzie skopiowaê moduîy?")
  42. (set #help_wb31 "Wybierasz miejsce, gdzie majâ zostaê skopiowane moduîy\n\ niezbëdne do ôciagania programów telewizyjnych!")
  43. (set #import_prompt "Z jakiego modulu chcesz korzystac?")
  44. (set #kopiuj_wb3 "Gdzie skopiowac niezbëdne pliki?")
  45. (set #help_wb3 "wybierasz miejsce gdzie majâ zostaê skopiowane niezbëdne pliki")
  46.  
  47. (set #kopiuj_modul "import/html-wp-online.tv")
  48. (set #kopiuj_pref "prefs/html-wp-online.pref")
  49.  
  50.  
  51. (set #dodaj "Czy mogë dodaê jednâ linie do user-startup?")
  52. (set #dodaj_help "Dodam linijke: Assign TVprog: xxx")
  53. (set #dodaje_tt "TOOLTYPE")
  54.  
  55. (set #info_jak "Jaki sposób instalacji wybierasz?")
  56. (set #info_jak_help "Wybierasz tutaj czy chcesz dokonaê peînej instalacji czy tylko zaktualizowaê program.\n\nPamiëtaj, ûe wybierajâc 'aktualizacje' nie instalujesz wszystkiego, a tylko aktualizujesz zainstalowane juû czëôci Tv-Programu.\n\nNaleûy równieû pamiëtaê, ûe skrypt nie instaluje wszystkich czëôci TV-Programu!\nJeôli chcesz skorzystac, ze wszystkich moûliwoôci tv-programu naleûy skopiowaê po instalacji brakujâce pliki.")
  57. (set #info_but0 "Instalacja")
  58. (set #info_but1 "Aktualizacja")
  59.  
  60. (set #stworzyc "Skrypt instalacyjny stworzy katalog nazwany 'TV-prog' dla programu TV.  Jesli chcesz zmieniê nazwe tego katalogu, wpisz nowâ nazwe poniûej.")
  61.  
  62. (set #pigw "Instaluje TV-Manager.library i TVbugraport.library")
  63.  
  64. (set #powiad_info "Czy zainstalowaê Powiadamiacza?")
  65. (set #powiad_gdzie1 "do katalogu WBSTARTUP (automatyczny start)")
  66. (set #powiad_gdzie2 "do katalogu TVProgramu")
  67. (set #powiad_gdzie3 "nie instaluj")
  68. (set #powiad_help (cat   "Powiadamiacz jest odrëbnym programem napisanym w C przez Jacka Walkowiak.\n\nDziëki niemu moûesz byê powiadamiany o wybranych przez Ciebie audycjach telewizyjnych.\n\n"
  69.              "Jeôli zainstalujesz go w katalogu WBSTARTUP to za kaûdym wystartowaniem komputera program bëdzie uruchamiany, natomiast jeôli zainstalujesz go w katalogu TV-Programu bëdziesz musiaî rëcznie uruchmiac go przez klikniëcie myszkâ na ikonce Powiadamiacza."
  70.              "\nJeôli nie potrzebujesz programu do powiadamiania po prostu wybierz 'nie instaluj' a skrypt instalacyjny nie zainstaluje powiadamiacza.\n\nW razie problemów z dziaîaniem powiadamiacza prosze kierowaê maile do autora programu rzydu@polbox.com"))
  71. (set #powiad_kopiuj "Kopiuje Powiadamiacza")
  72.  
  73. ))
  74.  
  75. (if (= wybr 1)
  76. (
  77. (set #dodaj "Mohu pêidat jeden êádek do user-startup?")
  78. (set #dodaj_help "Pêidat êádek do user-startup  Assign TVprog: xxx ")
  79. (set #dodaje_tt "TOOLTYPE")
  80.  
  81. (set #kopiuj_modul "import/html-wp-online.tv")
  82. (set #kopiuj_pref "prefs/html-wp-online.pref")
  83.  
  84. (set #witam "Vitá Vás instalaçní program \nTV programu\nDíky tomuto skriptu si mûùete nainstalovat a nakonfigurovat program")
  85. (set #info ("\nVerze (uù nainstalovaných) poùadovaných knihoven:\n\nmuimaster.library - %ld [19^]\ncommodities.library - %ld\n icon.library - %ld\n\n" #ver_dops #ver_comm #ver_icon))
  86. (set #gdzie "Kam chcete nainstalovat program? \n\ (adresáê bude vytvoêen)")
  87. (set #help_gdzie "Volíte si místo, kde má byt nainstalován TV program")
  88. (set #kopiuj_wb "Kam zkopírovat TV program?")
  89. (set #help_wb "Volíte si místo, kam má být zkopírován program")
  90. (set #kopiuj_wb1 "Kam zkopírovat dokumentaci?")
  91. (set #help_wb1 "Volíte si místo, kam mají být zkopírované dokumentace")
  92. (set #kopiuj_wb2 "Kam zkopírovat arexxové skripty?")
  93. (set #help_wb2 "Volíte si místo, kam mají být zkopírované arexxové skripty")
  94. (set #import_prompt "Kam zkopírovat moduly?")
  95. (set #kopiuj_wb31 "Volíte si místo, kam mají být zkopírované moduly\n\potêebné pro stahovaní televizních programû!")
  96. (set #help_wb31 "Které moduly chcete pouùívat?")
  97. (set #kopiuj_wb3 "Kam zkopírovat poùadované soubory?")
  98. (set #help_wb3 "Volíte si místo, kam mají být zkopírované poùadované soubory")
  99.  
  100. (set #info_jak "Jaký si zvolíî zpûsob instalace?")
  101. (set #info_jak_help "Zvolíî si zde, zda chceî plnou instalaci nebo jenom aktualizovat program")
  102. (set #info_but0 "Instalace")
  103. (set #info_but1 "Aktualizace")
  104.  
  105. (set #stworzyc "Instalaçní skipt vytvoêí adresáê pojmenovaný `TV-prog' pro TV program. Pokud chcete zmënit jméno toho adresáêe, napiîte jeho jméno níùe.") 
  106.  
  107.  
  108.  
  109. (set #pigw "Instaluji TV-Manager.library, TVbugraport.library")
  110.  
  111.  
  112. (set #powiad_info "Chcete nainstalovat Upozorñovaç(Powiadamiacz)?")
  113. (set #powiad_gdzie1 "do adresáêe WBSTARTUP (automatický start)")
  114. (set #powiad_gdzie2 "do adresáêe TVProgramu")
  115. (set #powiad_gdzie3 "neinstalovat")
  116. (set #powiad_help "")
  117. (set #powiad_kopiuj "Kopírují Upozorñovaç(Powiadamiacza)")
  118.  
  119.  
  120. ))
  121.  
  122. (if (= wybr 2)
  123. (
  124.  
  125. (set #witam "Willkommen zum Installationsprogramm\nTV\nDank diesem Skript werden Sie das Programm installieren und konfigurieren")
  126. (set #info ("\nVersionen die bei Ihnen installierten Libraries, die benötigt werden\n\nmuimaster.library - %ld [19^]\ncommodities.library - %ld\n icon.library - %ld\n\n" #ver_dops #ver_comm #ver_icon))
  127. (set #gdzie "Wo möchten Sie installieren? \n\ (das Verzeichnis wird erstellt)")
  128. (set #help_gdzie "Sie wählen, wo der TV-Programm installiert wird")
  129. (set #kopiuj_wb "Wo soll der TV-Programm kopiert werden?")
  130. (set #help_wb "Sie wählen, wo der Programm kopiert werden soll")
  131. (set #kopiuj_wb1 "Wo soll die Dokumentation kopiert werden?")
  132. (set #help_wb1 "Sie wählen, wo die Dokumentation kopiert werden soll")
  133. (set #kopiuj_wb2 "Wo sollen die aRexx-Skripte kopiert werden?")
  134. (set #help_wb2 "Sie wählen wo die aRexx-Skripte kopiert werden sollen")
  135. (set #kopiuj_wb31 "Wo kopieren die Module?")
  136. (set #help_wb31 "Sie wählen wo die Module kopiert werden,\n\ die zum Laden der Tv-Programmen benötigt werden!")
  137. (set #import_prompt "Welches Modul möchten Sie benutzen?")
  138. (set #kopiuj_wb3 "Wo kopieren die benötigten Dateien?")
  139. (set #help_wb3 "Sie wählen wo die benötigte Dateien kopiert werden sollen")
  140. (set #dodaj "Darf ich eine Zeile zur user-startup zuschreiben?" )
  141. (set #dodaj_help "Die Zeile: Assign TVprog: xxx")
  142. (set #info_jak "Welche Installation wählen Sie?")
  143. (set #info_jak_help "Hier wählen Sie, ob Sie volle Installation oder nur die Programmsaktualisierung möchten")
  144. (set #info_but0 "Installation")
  145. (set #info_but1 "Aktualisierung")
  146.  
  147. (set #kopiuj_modul "import/html-wp-online.tv")
  148. (set #kopiuj_pref "prefs/html-wp-online.pref")
  149.  
  150.  
  151. (set #stworzyc "This installation will create a drawer named `TV-prog' for the TV software.  If you would like to change the name of this drawer, type the new name below.")
  152. (set #pigw "Installieren TV-Manager.library und TVbugraport.library")
  153.  
  154. ))
  155.  
  156. (welcome #witam)
  157.  
  158.  
  159.  
  160. (if (>= @installer-version 2883594)
  161. (
  162. (showmedia 'media' 'Docs/AFD-COPYRIGHT' 'upper_right' 'medium' 1 'wordwrap')
  163. ))
  164.  
  165. (message #info)
  166.  
  167. (if (>= @installer-version 2883594)
  168. (
  169. (closemedia media)
  170. ))
  171.  
  172. (if (>= @installer-version 2883594)
  173. (
  174. (showmedia 'pics' 'Docs/pics/okno.iff' 'upper_left' 'none' 1)
  175. ))
  176.  
  177. (set sposob
  178.     (askchoice
  179.         (prompt #info_jak)
  180.         (help #info_jak_help)
  181.         (choices #info_but0 #info_but1)
  182.         (default 0)
  183.     )
  184. )
  185.  
  186.  
  187.  
  188.  
  189.  
  190. (if (>= @installer-version 2883594)
  191. (
  192. (closemedia pics)
  193. ))
  194.  
  195.  
  196. (if (= sposob 0)
  197. (
  198.  
  199.  
  200.  
  201.  
  202. (set #wyb1
  203.     (askdir
  204.         (prompt #gdzie)
  205.         (default "SYS:")
  206.         (help #help_gdzie)
  207.         (disk)
  208.     )
  209. )
  210.  
  211. (complete 5)
  212.  
  213. (set #drawername "TV-prog")
  214.  
  215. (if (> @user-level 1)
  216.                (set #drawername
  217.                   (askstring
  218.                  (prompt #stworzyc)
  219.                  (help @askstring-help)
  220.                  (default "TV-prog")
  221.                   )
  222.                )
  223.             )
  224.  
  225. (set #wyb2 (tackon #wyb1 #drawername))
  226. (set #wyb3 (tackon #wyb2 "data"))
  227. (set #wyb4 (tackon #wyb2 "data_p"))
  228. (set #wyb5 (tackon #wyb2 "notatnik"))
  229. (set #wyb6 (tackon #wyb2 "Docs"))
  230. (set #wyb7 (tackon #wyb2 "import"))
  231. (set #wyb8 (tackon #wyb2 "export"))
  232. (set #wyb9 (tackon #wyb2 "rexx"))
  233. (set #wyb0 (tackon #wyb2 "catalogs"))
  234. (set #wya0 (tackon #wyb2 "plugins"))
  235. (set #wyz5 (tackon #wyb2 "prefs"))
  236. (set #pig (tackon #wyb2 "libs"))
  237. (set #work (tackon #wyb2 "work"))
  238.  
  239.  
  240. (makedir #wyb2 (infos))
  241. (makedir #wyb3)
  242. (makedir #wyb4)
  243. ;(makedir #wyb5)
  244. (makedir #wyb6 (infos))
  245. (makedir #wyb7)
  246. (makedir #wyb8)
  247. (makedir #wyb9)
  248. (makedir #wyb0)
  249. (makedir #wyz5)
  250. (makedir #pig)
  251. (makedir #work)
  252. (makedir #wya0)
  253.  
  254. (if (=(exists "tv.ext" (noreq)) 1)
  255. (
  256.  
  257. (if (>= @installer-version 2883594)
  258. (
  259. (showmedia 'pics' 'Docs/pics/aktualizacja.iff' 'upper_left' 'none' 1)
  260. ))
  261.  
  262.  
  263.  
  264.  
  265. (if (= wybr 0)
  266. (
  267. (set importk
  268.     (askoptions
  269.         (prompt #import_prompt)
  270.         (help @askoptions-help)
  271.         (choices "WirtualnaPolska (114 programów, ôredni transfer)")
  272.         (default 0)
  273.     )
  274. )
  275.  
  276. (if (BITAND importk %1)
  277. (
  278. (set #kopiuj_modul "import/html-wp-online.tv")
  279.  
  280.  
  281.  
  282. (set #wb_sel3
  283. (copyfiles
  284.     (prompt #kopiuj_wb31)
  285.     (source "prefs/html-wp-online.pref")
  286.     (dest #wyz5)
  287.     (infos)
  288.     (help #help_wb31)
  289. )
  290. )
  291. (set #wb_sel3a
  292. (copyfiles
  293.     (prompt #kopiuj_wb31)
  294.     (source #kopiuj_modul)
  295.     (dest #wyb7)
  296.     (infos)
  297.     (help #help_wb31)
  298. )
  299. )
  300.  
  301. (set #wb_sel3a
  302. (copyfiles
  303.     (prompt #kopiuj_wb31)
  304.     (source "import/text.tv")
  305.     (dest #wyb7)
  306.     (infos)
  307.     (help #help_wb31)
  308. )
  309. )
  310.  
  311.  
  312. ))
  313.  
  314. (if (BITAND importk %10)
  315. (
  316. (set #kopiuj_modul "import/html-wp-online.tv")
  317.  
  318. (set #wb_sel3
  319. (copyfiles
  320.     (prompt #kopiuj_wb31)
  321.     (source #kopiuj_modul)
  322.     (dest #wyb7)
  323.     (infos)
  324.     (help #help_wb31)
  325. )
  326. )
  327.  
  328.  
  329. (set #wb_sel3a
  330. (copyfiles
  331.     (prompt #kopiuj_wb31)
  332.     (source "import/text.tv")
  333.     (dest #wyb7)
  334.     (infos)
  335.     (help #help_wb31)
  336. )
  337. )
  338.  
  339. (set #wb_sel3z
  340. (copyfiles
  341.     (prompt #kopiuj_wb31)
  342.     (source "prefs/html-wp-online.pref")
  343.     (dest #wyz5)
  344.     (infos)
  345.     (help #help_wb31)
  346. )
  347. )
  348.  
  349. ))
  350. )
  351.  
  352. (if (>= @installer-version 2883594)
  353. (
  354. (closemedia pics)
  355. )))
  356.  
  357. ))
  358.  
  359.  
  360. (complete 10)
  361.  
  362. (set #wb_pig
  363. (copyfiles
  364.     (prompt #pigw)
  365.     (source "libs/tvmanager.library")
  366.     (dest #pig)
  367.     (infos)
  368.     (help #help_wb3)
  369. )
  370. )
  371.  
  372. (if (=(exists "libs/bugraport.library" (noreq)) 1)
  373.  
  374. (set #wb_pig
  375. (copyfiles
  376.     (prompt #pigw)
  377.     (source "libs/bugraport.library")
  378.     (dest #pig)
  379.     (infos)
  380.     (help #help_wb3)
  381. )
  382. )
  383.  
  384. )
  385.  
  386. (if (=(exists "Pref" (noreq)) 1)
  387.  
  388. (set #wb_pref
  389. (copyfiles
  390.     (prompt #kopiuj_wb)
  391.     (source "pref")
  392.     (dest #wyb2)
  393.     (infos)
  394.     (help #help_wb3)
  395. )
  396. )
  397.  
  398.  
  399. )
  400.  
  401. (set #wb_sel
  402. (copyfiles
  403.     (prompt #kopiuj_wb)
  404.     (source "TV")
  405.     (dest #wyb2)
  406.     (infos)
  407.     (help #help_wb)
  408. )
  409. )
  410.  
  411. (complete 20)
  412.  
  413. (set #wb_sel1
  414. (copyfiles
  415.     (prompt #kopiuj_wb1)
  416.     (source "Docs")
  417.     (dest #wyb6)
  418.     (all)
  419.     (help #help_wb1)
  420. )
  421. )
  422.  
  423. (complete 40)
  424.  
  425. (set progpow
  426.     (askchoice
  427.         (prompt #powiad_info)
  428.         (help #powiad_help)
  429.         (choices #powiad_gdzie1 #powiad_gdzie2 #powiad_gdzie3)
  430.         (default 0)
  431.     )
  432. )
  433.  
  434. (if (= progpow 0)
  435. (
  436.  
  437. (copyfiles
  438.     (prompt #powiad_kopiuj)
  439.     (source "TVPowiadamiacz")
  440.     (dest "sys:wbstartup")
  441.     (infos)
  442.     (help #powiad_help)
  443.  
  444. )))
  445.  
  446. (if (= progpow 1)
  447. (
  448.  
  449. (copyfiles
  450.     (prompt #powiad_kopiuj)
  451.     (source "TVPowiadamiacz")
  452.     (dest #wyb2)
  453.     (infos)
  454.     (help #powiad_help)
  455.  
  456. )))
  457.  
  458.  
  459. (set #wb_sel2
  460. (copyfiles
  461.     (prompt #kopiuj_wb2)
  462.     (source "rexx")
  463.     (dest #wyb9)
  464.     (all)
  465.     (help #help_wb2)
  466. )
  467. )
  468.  
  469. (complete 55)
  470.  
  471. (set #wb_sel3
  472. (copyfiles
  473.     (prompt #kopiuj_wb31)
  474.     (source #kopiuj_modul)
  475.     (dest #wyb7)
  476.     (infos)
  477.     (help #help_wb31)
  478. )
  479. )
  480.  
  481. (set #wb_sel3x
  482. (copyfiles
  483.     (prompt #kopiuj_wb31)
  484.     (source #kopiuj_pref)
  485.     (dest #wyz5)
  486.     (infos)
  487.     (help #help_wb31)
  488. )
  489. )
  490.  
  491.  
  492. (complete 60)
  493.  
  494.  
  495. (complete 65)
  496.  
  497. (set #wb_sel5
  498. (copyfiles
  499.     (prompt #kopiuj_wb3)
  500.     (source "NUMERACJA.pref")
  501.     (dest #wyb2)
  502.     (infos)
  503.     (help #help_wb3)
  504. )
  505. )
  506.  
  507. (complete 70)
  508.  
  509. (set #wb_sel6
  510. (copyfiles
  511.     (prompt #kopiuj_wb3)
  512.     (source "ROK.pref")
  513.     (dest #wyb2)
  514.     (infos)
  515.     (help #help_wb3)
  516. )
  517. )
  518.  
  519. (complete 75)
  520.  
  521. (if (= wybr 1 )
  522. (
  523.  
  524. (set #gf (tackon #wyb0 "czech"))
  525. (makedir #gf)
  526.  
  527. (copyfiles
  528.     (prompt #kopiuj_wb3)
  529.     (source "catalogs/czech")
  530.     (dest #gf)
  531.     (all)
  532. )
  533.  
  534.  
  535. ))
  536.  
  537. (if (= wybr 0)
  538. (
  539.  
  540. (set jezyk_katalog
  541.     (askoptions
  542.         (prompt "W jakim jëzyku ma 'rozmawiaê' program?")
  543.         (help @askoptions-help)
  544.         (choices "POLSKI (wbudowane)" "POLSKI z katalogu" "POLSKI w ISO" "ANGIELSKI")
  545.         (default 0)
  546.     )
  547. )
  548.  
  549.  
  550. (if (BITAND jezyk_katalog %10)
  551. (
  552.  
  553. (set #gf (tackon #wyb0 "polski"))
  554. (makedir #gf)
  555.  
  556. (copyfiles
  557.     (prompt #kopiuj_wb3)
  558.     (source "catalogs/polski")
  559.     (dest #gf)
  560.     (all)
  561. )
  562. )
  563. )
  564.  
  565.  
  566. (if (BITAND jezyk_katalog %100)
  567. (
  568.  
  569. (set #gf (tackon #wyb0 "polski"))
  570. (makedir #gf)
  571.  
  572. (copyfiles
  573.     (prompt #kopiuj_wb3)
  574.     (source "catalogs/polskiISO")
  575.     (dest #gf)
  576.     (all)
  577. )
  578. )
  579. )
  580.  
  581.  
  582. (if (BITAND jezyk_katalog %1000)
  583. (
  584.  
  585. (set #gf (tackon #wyb0 "english"))
  586. (makedir #gf)
  587.  
  588. (copyfiles
  589.     (prompt #kopiuj_wb3)
  590.     (source "catalogs/english")
  591.     (dest #gf)
  592.     (all)
  593. )
  594. )
  595. )
  596.  
  597. )
  598. )
  599.  
  600.  
  601. ;#(set #wb_sel7
  602. ;#(copyfiles
  603. ;#    (prompt #kopiuj_wb3)
  604. ;#    (source "catalogs")
  605. ;#    (dest #wyb0)
  606. ;#    (all)
  607. ;#    (help #help_wb3)
  608. ;#)
  609. ;#)
  610. ;#)
  611.  
  612. (complete 90)
  613.  
  614. (if (=(exists "tv.ext" (noreq)) 1)
  615.  
  616. (set #wb_sel8
  617. (copyfiles
  618.     (prompt #kopiuj_wb3)
  619.     (source "tv.ext")
  620.     (dest #wyb2)
  621.     (help #help_wb3)
  622. )
  623. )
  624.  
  625. )
  626.  
  627. (complete 95)
  628.  
  629. (set #komenda "Assign TVprog: ")
  630.  
  631. (set #komenda1 (cat #komenda #wyb2))
  632.  
  633. (startup "TV-PROGRAM"
  634.     (prompt #dodaj)
  635.     (command #komenda1)
  636.     (help #dodaj_help)
  637. )
  638.  
  639. (makeassign "TVprog" #wyb2)
  640.  
  641. (if (=(exists "libs:mui/betterbalance.mcc" (noreq)) 1)
  642.  
  643. (tooltype
  644.     (prompt #dodaje_tt)
  645.     (help #dodaje_tt)
  646.     (dest "tvprog:tv")
  647.     (settooltype "TV_BETTERBALANCE" "ON")
  648.  
  649. )
  650. (
  651. (tooltype
  652.     (prompt #dodaje_tt)
  653.     (help #dodaje_tt)
  654.     (dest "tvprog:tv")
  655.     (settooltype "TV_BETTERBALANCE" "OFF")
  656.  
  657. )
  658. )
  659.  
  660. )
  661.  
  662. (if (=(exists "libs:mui/tearoff.mcp" (noreq)) 1)
  663.  
  664. (tooltype
  665.     (prompt #dodaje_tt)
  666.     (help #dodaje_tt)
  667.     (dest "tvprog:tv")
  668.     (settooltype "TV_TEAROFF" "ON")
  669.  
  670. )
  671. (
  672. (tooltype
  673.     (prompt #dodaje_tt)
  674.     (help #dodaje_tt)
  675.     (dest "tvprog:tv")
  676.     (settooltype "TV_TEAROFF" "OFF")
  677.  
  678. )
  679. )
  680.  
  681. )
  682.  
  683. (set #wb_wp
  684. (copyfiles
  685.     (prompt #kopiuj_wb)
  686.     (source "verifywp")
  687.     (dest "tvprog:")
  688.     (help #help_wb3)
  689. )
  690. )
  691.  
  692. (set #wb_wp
  693. (copyfiles
  694.     (prompt #kopiuj_wb)
  695.     (source "import/html-wp-online.ust")
  696.     (dest "tvprog:import/")
  697.     (help #help_wb3)
  698. )
  699. )
  700.  
  701. (run "tvprog:verifywp")
  702.  
  703. (complete 100)
  704. )
  705. )
  706.  
  707.  
  708. (if (= sposob 1)
  709. (
  710.  
  711. (set #wb_sel
  712. (copyfiles
  713.     (prompt #kopiuj_wb)
  714.     (source "TV")
  715.     (dest "Tvprog:")
  716.     (help #help_wb)
  717. )
  718. )
  719.  
  720. (complete 10)
  721.  
  722. (set #wb_sel1
  723. (copyfiles
  724.     (prompt #kopiuj_wb1)
  725.     (source "Docs")
  726.     (dest "tvprog:docs/")
  727.     (all)
  728.     (help #help_wb1)
  729. )
  730. )
  731.  
  732. (complete 30)
  733.  
  734. (set #wb_sel7
  735. (copyfiles
  736.     (prompt #kopiuj_wb3)
  737.     (source "catalogs")
  738.     (dest "tvprog:catalogs/")
  739.     (all)
  740.     (help #help_wb3)
  741. )
  742. )
  743.  
  744. (complete 50)
  745.  
  746. (if (=(exists "tvprog:Pref" (noreq)) 1)
  747. (
  748. (set #wb_sel
  749. (copyfiles
  750.     (prompt #kopiuj_wb3)
  751.     (source "Pref")
  752.     (dest "Tvprog:")
  753.     (help #help_wb3)
  754. )
  755. )
  756. ))
  757.  
  758. (complete 60)
  759.  
  760. ;(if (=(exists "tvprog:import/html-pl-online.tv" (noreq)) 1)
  761. ;(
  762. ;(set #wb_sel
  763. ;(copyfiles
  764. ;    (prompt #kopiuj_wb3)
  765. ;    (source "import/html-pl-online.tv")
  766. ;    (dest "Tvprog:import/")
  767. ;    (help #help_wb3)
  768. ;)
  769. ;)
  770. ;))
  771.  
  772. (complete 70)
  773.  
  774. (if (=(exists "tvprog:import/html-wp-online.tv" (noreq)) 1)
  775. (
  776. (set #wb_sel
  777. (copyfiles
  778.     (prompt #kopiuj_wb3)
  779.     (source "import/html-wp-online.tv")
  780.     (dest "Tvprog:import/")
  781.     (help #help_wb3)
  782. )
  783. )
  784. ))
  785.  
  786. (if (=(exists "libs/bugraport.library" (noreq)) 1)
  787.  
  788. (set #wb_pig
  789. (copyfiles
  790.     (prompt #pigw)
  791.     (source "libs/bugraport.library")
  792.     (dest "tvprog:libs/")
  793.     (help #help_wb3)
  794. )
  795. )
  796.  
  797. )
  798.  
  799. (set #wb_pig
  800. (copyfiles
  801.     (prompt #pigw)
  802.     (source "libs/tvmanager.library")
  803.     (dest "tvprog:libs/")
  804.     (help #help_wb3)
  805. )
  806. )
  807.  
  808. (complete 80)
  809.  
  810. (if (=(exists "tvprog:import/html-cz-online.tv" (noreq)) 1)
  811. (
  812. (set #wb_sel
  813. (copyfiles
  814.     (prompt #kopiuj_wb3)
  815.     (source "import/html-cz-online.tv")
  816.     (dest "Tvprog:import/")
  817.     (help #help_wb3)
  818. )
  819. )
  820.  
  821. (complete 100)
  822.  
  823. ))
  824.  
  825.  
  826. ))